global lastCredits, thisLine, thisTopic, thisTopicItem, thisItemType, thisIndex
set thisLine = the mouseLine
if thisLine = -1 then
exit
end if
if line thisLine of field "selected topics list" = "╫ " then
beep
exit
end if
if line thisLine of field "selected topics list" = "" then
beep
exit
else
hilite line thisLine of field "selected topics list"
cursor 4
set thisIndex = (thisTopic&" index")
set thisTopicItem = chars(line thisLine of field thisIndex, (the length of word 1 of line thisLine of field thisIndex+2), (the length of line thisLine of field thisIndex))
set thisItemType = word 1 of line thisLine of field thisIndex
-- handles display of text items
if thisItemType = "TEXT" then
set the text of cast "search text" = the text of cast thisTopicItem
puppetSound "add a movie"
go to frame "search text"
end if
-- handles display of video items
if thisItemType = "VIDEO240" then
global thisVideo
set thisVideo = word 2 of line thisLine of field thisIndex
go to frame "search video 240"
end if
if thisItemType = "VIDEO320" then
global thisVideo
set thisVideo = word 2 of line thisLine of field thisIndex
go to frame "search video 320"
end if
-- handles display of turn on movies items
if thisItemType = "TURNON" then
set the cursor of sprite 5 to 0
set the cursor of sprite 7 to 0
cursor 4
updatestage
go to frame "search show"
end if
-- handles display of image items
if thisItemType = "IMAGE" then
go to frame (word 2 of line thisLine of field thisIndex) of movie "SARTWORK.DIR"
